| ShiftStateToKeyData method |
Applies to
TGUITestCase
Declaration
Function ShiftStateToKeyData(ShiftState :TShiftState): Longint;Implementation
function TGUITestCase.ShiftStateToKeyData(ShiftState :TShiftState):Longint;
const
AltMask = $20000000;
begin
Result := 0;
if ssShift in ShiftState then
Result := Result or VK_SHIFT;
if ssCtrl in ShiftState then
Result := Result or VK_CONTROL;
if ssAlt in ShiftState then
Result := Result or AltMask;
End; |
|
|